pchgl=powpr*(1.d0-dexp(-2d0*pil))
pchgc=powpr*dexp(-2d0*pil)*dabs(-2d0*pic)
pchga=powpr*dexp(-2d0*pil)*dabs(-2d0*pia)
! adde=zze(dd/dens(j))weight ! e2perp(i,j)=e2perp(i,j)+adde
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | j | |||
| integer, | intent(in) | :: | i | |||
| real(kind=wp), | intent(in) | :: | v | |||
| real(kind=wp), | intent(in) | :: | powpr | |||
| real(kind=wp), | intent(in) | :: | pil | |||
| real(kind=wp), | intent(in) | :: | pic | |||
| real(kind=wp), | intent(in) | :: | pia | |||
| real(kind=wp), | intent(in) | :: | df | |||
| real(kind=wp), | intent(in) | :: | decv | |||
| real(kind=wp), | intent(in) | :: | refr | |||
| real(kind=wp), | intent(in) | :: | vlf | |||
| real(kind=wp), | intent(in) | :: | vrt | |||
| integer, | intent(in) | :: | ifast |